﻿Public Class map2
    Dim lon
    Dim lan
    Public Sub tick(ByVal lon1, ByVal lan1)


        lon = lon1
        lan = lan1


    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate("http://maps.google.de/maps?saddr=" & lan & "+" & lon & "&daddr=" & TextBox1.Text.Replace(" ", "+") & "&z=7")
        Button1.Hide()
        TextBox1.Hide()
        Label1.Hide()
        Me.WindowState = FormWindowState.Maximized
    End Sub
End Class